home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / bgscroll / frm.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-22  |  5KB  |  156 lines
  1. VERSION 5.00
  2. Begin VB.Form frm 
  3.    AutoRedraw      =   -1  'True
  4.    Caption         =   "BGScroll Examples"
  5.    ClientHeight    =   1380
  6.    ClientLeft      =   3495
  7.    ClientTop       =   2865
  8.    ClientWidth     =   7230
  9.    LinkTopic       =   "frm"
  10.    ScaleHeight     =   92
  11.    ScaleMode       =   3  'Pixel
  12.    ScaleWidth      =   482
  13.    Begin VB.PictureBox pic4 
  14.       Appearance      =   0  'Flat
  15.       AutoRedraw      =   -1  'True
  16.       AutoSize        =   -1  'True
  17.       BackColor       =   &H80000005&
  18.       BorderStyle     =   0  'None
  19.       ForeColor       =   &H80000008&
  20.       Height          =   240
  21.       Left            =   1860
  22.       Picture         =   "frm.frx":0000
  23.       ScaleHeight     =   16
  24.       ScaleMode       =   3  'Pixel
  25.       ScaleWidth      =   16
  26.       TabIndex        =   3
  27.       Top             =   855
  28.       Width           =   240
  29.    End
  30.    Begin VB.PictureBox pic3 
  31.       Appearance      =   0  'Flat
  32.       AutoRedraw      =   -1  'True
  33.       AutoSize        =   -1  'True
  34.       BackColor       =   &H80000005&
  35.       BorderStyle     =   0  'None
  36.       ForeColor       =   &H80000008&
  37.       Height          =   240
  38.       Left            =   1620
  39.       Picture         =   "frm.frx":0342
  40.       ScaleHeight     =   16
  41.       ScaleMode       =   3  'Pixel
  42.       ScaleWidth      =   16
  43.       TabIndex        =   2
  44.       Top             =   615
  45.       Width           =   240
  46.    End
  47.    Begin VB.PictureBox pic2 
  48.       Appearance      =   0  'Flat
  49.       AutoRedraw      =   -1  'True
  50.       AutoSize        =   -1  'True
  51.       BackColor       =   &H80000005&
  52.       BorderStyle     =   0  'None
  53.       ForeColor       =   &H80000008&
  54.       Height          =   240
  55.       Left            =   1380
  56.       Picture         =   "frm.frx":0684
  57.       ScaleHeight     =   16
  58.       ScaleMode       =   3  'Pixel
  59.       ScaleWidth      =   16
  60.       TabIndex        =   1
  61.       Top             =   375
  62.       Width           =   240
  63.    End
  64.    Begin VB.Timer Timer1 
  65.       Interval        =   25
  66.       Left            =   255
  67.       Top             =   195
  68.    End
  69.    Begin VB.PictureBox pic 
  70.       Appearance      =   0  'Flat
  71.       AutoRedraw      =   -1  'True
  72.       AutoSize        =   -1  'True
  73.       BackColor       =   &H80000005&
  74.       BorderStyle     =   0  'None
  75.       ForeColor       =   &H80000008&
  76.       Height          =   240
  77.       Left            =   1140
  78.       Picture         =   "frm.frx":09C6
  79.       ScaleHeight     =   16
  80.       ScaleMode       =   3  'Pixel
  81.       ScaleWidth      =   16
  82.       TabIndex        =   0
  83.       Top             =   135
  84.       Width           =   240
  85.    End
  86.    Begin VB.Label lbl 
  87.       AutoSize        =   -1  'True
  88.       BackStyle       =   0  'Transparent
  89.       Caption         =   "Feel Free to Modify this Code"
  90.       BeginProperty Font 
  91.          Name            =   "MS Sans Serif"
  92.          Size            =   13.5
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H00FF0000&
  100.       Height          =   360
  101.       Index           =   1
  102.       Left            =   2235
  103.       TabIndex        =   5
  104.       Top             =   150
  105.       Width           =   4155
  106.    End
  107.    Begin VB.Label lbl 
  108.       AutoSize        =   -1  'True
  109.       BackStyle       =   0  'Transparent
  110.       Caption         =   "Feel Free to Modify this Code"
  111.       BeginProperty Font 
  112.          Name            =   "MS Sans Serif"
  113.          Size            =   13.5
  114.          Charset         =   0
  115.          Weight          =   700
  116.          Underline       =   0   'False
  117.          Italic          =   0   'False
  118.          Strikethrough   =   0   'False
  119.       EndProperty
  120.       ForeColor       =   &H000000FF&
  121.       Height          =   360
  122.       Index           =   0
  123.       Left            =   2265
  124.       TabIndex        =   4
  125.       Top             =   165
  126.       Width           =   4155
  127.    End
  128.    Begin VB.Menu mnuFile 
  129.       Caption         =   "&File"
  130.       Begin VB.Menu mnuExit 
  131.          Caption         =   "E&xit"
  132.       End
  133.    End
  134.    Begin VB.Menu mnuHelp 
  135.       Caption         =   "&Help"
  136.       Begin VB.Menu mnuAbout 
  137.          Caption         =   "&About"
  138.       End
  139.    End
  140. Attribute VB_Name = "frm"
  141. Attribute VB_GlobalNameSpace = False
  142. Attribute VB_Creatable = False
  143. Attribute VB_PredeclaredId = True
  144. Attribute VB_Exposed = False
  145. Private Sub mnuAbout_Click()
  146. MsgBox App.EXEName & " by Todd Spangler"
  147. End Sub
  148. Private Sub mnuExit_Click()
  149. End Sub
  150. Private Sub Timer1_Timer()
  151. BGScroll pic, downx
  152. BGScroll pic2, upx
  153. BGScroll pic3, rightx
  154. BGScroll pic4, leftx
  155. End Sub
  156.